home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
tab100
/
about.frm
next >
Wrap
Text File
|
1995-09-06
|
4KB
|
140 lines
VERSION 2.00
Begin Form AboutForm
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "About Tablenette (Vers 1.0)"
ClientHeight = 3015
ClientLeft = 1485
ClientTop = 1830
ClientWidth = 6510
ControlBox = 0 'False
ForeColor = &H00C000C0&
Height = 3420
Left = 1425
LinkMode = 1 'Source
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3015
ScaleWidth = 6510
Top = 1485
Width = 6630
Begin CommandButton Ok
Caption = "Ok"
Default = -1 'True
Height = 465
Left = 2670
TabIndex = 0
Top = 2415
Width = 915
End
Begin PictureBox Picture1
Height = 495
Left = 2880
Picture = ABOUT.FRX:0000
ScaleHeight = 465
ScaleWidth = 390
TabIndex = 7
Top = 1815
Width = 420
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "CompuServe: 100020,3472"
Height = 285
Index = 6
Left = 1020
TabIndex = 6
Top = 1440
Width = 4440
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Tel: +44 727 47806 or (0727) 47806"
Height = 330
Index = 5
Left = 870
TabIndex = 5
Top = 1170
Width = 4890
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "1 Stonecross, St. Albans, Herts,ENGLAND, AL1 4AA"
Height = 270
Index = 4
Left = 870
TabIndex = 4
Top = 885
Width = 4830
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Sycomp Limited"
Height = 240
Index = 3
Left = 855
TabIndex = 3
Top = 645
Width = 4515
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Developed By: Martin Ryan"
Height = 270
Index = 2
Left = 855
TabIndex = 2
Top = 375
Width = 4545
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Tablenette Version 1.0"
Height = 255
Index = 1
Left = 870
TabIndex = 1
Top = 90
Width = 4515
End
End
Sub BTButton5_Click ()
Unload AboutForm
End Sub
Sub Form_Load ()
AboutForm.Height = Form1.Height / 2
AboutForm.Width = Form1.Width * 2 / 3
AboutForm.Top = Form1.Top + (AboutForm.Height / 2)
AboutForm.Left = Form1.Left + (AboutForm.Width / 4)
Ok.Top = AboutForm.Height - 800
Ok.Left = AboutForm.Width / 2 - (Ok.Width / 2)
Dim Spacer As Integer
Spacer = AboutForm.Height / 10
For i = 1 To 6
Label1(i).Width = AboutForm.Width
Label1(i).Left = 0
Label1(i).Height = 250
Label1(i).Top = i * Spacer
Next i
End Sub
Sub Ok_Click ()
Unload AboutForm
End Sub
Sub OKButton_Click ()
Unload AboutForm
End Sub